home *** CD-ROM | disk | FTP | other *** search
/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / games / _spatience / spatience / scripts / syrian < prev    next >
Encoding:
Text File  |  1992-07-23  |  1.1 KB  |  59 lines
  1. |
  2. |  Rules for Syrian patience
  3. |  Written by J.Horsnell
  4. |  Described by S.Fahkry
  5. |
  6. |  This version of the game has ShallowCheck stacks.
  7. |  This may be wrong but I refuse to believe that they're
  8. |  meant to be DeepCheck stacks because that's virtually
  9. |  impossible to play let alone win.
  10. |
  11. |  Alterations: Any card can be placed on an empty stack.
  12. |               Max cards per stack is now fifty two.
  13. |               Blame R.Wilson. for those.
  14. |
  15. SCRIPT_TYPE 1
  16. |
  17. BEGIN "Syrian patience"
  18.  
  19.   FLAGS ClickFly AnimateFly
  20.   WIDTH 9 * 74 + 14
  21.   HEIGHT 800
  22.   ZeroToWin 52 - CARDSIN$2
  23.  
  24.   FOR stack = 0 TO 1
  25.     FOR row = 0 TO 1
  26.       FOUNDATION
  27.         X 7 * 74 + 12 + stack * 74
  28.         Y 16 + 100 * row
  29.         ID 2
  30.       END
  31.     END
  32.   END
  33.  
  34.   FOR stack = 0 to 6
  35.     STACK
  36.       X stack * 74 + 12
  37.       y 16
  38.       FIRST 1,13
  39.       MAX 52
  40.       JoinOffset -1
  41.       DEAL stack + 1 , stack + 1
  42.       FLAGS ClickFly JoinSS__
  43.       ID 1
  44.     END
  45.   END
  46.  
  47.   STACK
  48.     X 7 * 74 + 12 + 37
  49.     Y 216
  50.     MAX 0
  51.     DEAL 24
  52.     DEALTO 1,1
  53.     TAKEFROM 0
  54.     DRAGUPTO 0
  55.     FLAGS PaintBack
  56.   END
  57.  
  58. END
  59.